home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / win_u_z / vxb102.zip / VXBTEST.ZIP / VXFORM4.FRM (.txt) < prev    next >
Visual Basic Form  |  1991-12-03  |  11KB  |  314 lines
  1. VXFORM4
  2. Buyer Details
  3. Form1-
  4. Label1
  5. Tms Rmn
  6. BuyCode
  7. Label2
  8. Aircraft Type
  9. Tms Rmn
  10. BuyType
  11. BuyTypeHelp
  12. Tms Rmn
  13. BuyTypeDesc
  14. Label3
  15.     Low Price
  16. Tms Rmn
  17. BuyLow
  18. Label4
  19. High Price
  20. Tms Rmn
  21. BuyHigh
  22. BuySave
  23. &Save
  24.     BuyCancel
  25. &Cancel
  26. BuyAdd
  27.     BuyDelete
  28. &Delete
  29. BuyNext
  30. &Next
  31. BuyPrevious
  32.     &Previous
  33.     BuyBrowse
  34. &Browse
  35. BuyExit
  36. E&xit
  37. Label5
  38. Status
  39. Tms Rmn
  40.     BuyStatus
  41. Form_Click
  42.     Form_Load    
  43. AirbuyerDbf1
  44. vxUseDbf\
  45. FALSE
  46. Airbuy1Ntx
  47. vxUseNtx
  48. Airbuy2Ntx
  49. vxTableDeclare
  50. VX_GRAY
  51. vxTableField
  52. VX_FIELD
  53. Form_Unload@
  54. Cancel;
  55. vxClose]
  56. StatesOpenC
  57. vxSelectDbf{
  58. AircustDbf
  59. CustReturn
  60. BROWSE_USER
  61. vxTableReset
  62. AirstateDbf0
  63. VXFORM1
  64. Buyer'    
  65. VXFORM3&
  66. vxSeekH
  67. CustKey
  68. vxSelectNtx
  69. Aircust1Ntx
  70. BROWSE_CLOSED
  71. BuyerReturn[
  72. VXFORM4
  73. BROWSE_ADD
  74. CustDataClear4
  75. CustStatus
  76. textt
  77. CustSaveP
  78. Enabled
  79. CustCancel
  80. CustAdd
  81. CustDelete
  82. BuyRecs
  83. Aircraft
  84. BROWSE_EDIT
  85. CustDataLoadl
  86. vxTrueO
  87. vxRecNo_
  88. BuyerDataClear+
  89. Buytatus
  90. BuySave)
  91.     BuyCancel
  92. BuyAdd
  93.     BuyDelete8
  94. BuyerDataLoad
  95.     BuyStatusD
  96. CustCodez
  97. CustNamen
  98. CustCompany
  99. CustAddress
  100. CustCity
  101.     CustState
  102. CustZip
  103.     CustPhRes
  104.     CustPhBus
  105. CustFax
  106.     CustBuyer
  107. Value
  108. CustSeller
  109.     CustCdatel
  110.     CustRdate
  111. CustDays
  112. BuyCode
  113. BuyType
  114. BuyTypeDesc
  115. BuyLow$
  116. BuyHighN
  117. EnableBuyerDataa
  118. b_low%
  119. b_high
  120. vxFieldB
  121. vxDouble
  122. DisableBuyerData
  123. BuyAdd_ClickC
  124. EnableCustData
  125.     BuyReturn
  126. BuyBrowse_Click
  127. VXFORM2
  128. Visible
  129. TypeReturn
  130. BrowseTypes
  131. BrowseBuyersv
  132. BuyCancel_Clickw    
  133. TypeDataClear
  134. TypeStatush
  135. TypeSave
  136. TypeCancel6
  137. TypeAdd
  138. TypeDelete
  139. BuyDelete_Click
  140. vxDeleteRecQ
  141. BuyExit_Click
  142. BuyHigh_Change
  143. KeyAscii
  144. BuyHigh_KeyPress
  145. BuyLow_Change
  146. BuyLow_KeyPress
  147. BuyType_Changef
  148. BuyType_GotFocus
  149. BROWSE_DELETE\
  150. CodeSizeL
  151. vxFieldSize{
  152. hwndC
  153. GetFocus
  154. SendMessage
  155. EM_LIMITTEXT
  156. BuyType_KeyPressP
  157. BuyType_LostFocus
  158. EmptyString
  159. AirtypesDbfW
  160. BuyerRec
  161. BuyTypeDesc_Change
  162. BuyNext_Click5
  163. vxEof
  164. vxSkip
  165. TypeNext
  166. TypePrev
  167. TypeBrowse
  168.     vxDeletedl
  169. vxBottom0
  170. TypeDataLoad
  171. BuyNext
  172. BuyPrevious
  173.     BuyBrowse@
  174. EndFile
  175. BuyHigh_GotFocus
  176. BuyLow_GotFocus
  177. BuyPrevious_Click
  178. vxBof
  179. vxTop
  180. BegFiler
  181. BuySave_Click
  182. SeekKey
  183. TypeCode
  184. vxAppendBlank
  185. vxReplString
  186. TypeDescb
  187. vxWrite
  188. TypeKey
  189. vxReplDouble
  190. BuyTypeHelp_Click
  191. SaveReturn
  192. Airstat2Ntx
  193. StateReturn
  194. vxBrowse
  195. AirtypesNtxk    
  196. BuyCode_Change
  197. CursorWait
  198. CursorArrow
  199. b_test
  200. vxDbl5    
  201. field^    
  202. Form_PaintD    
  203. vxFormFrameR    
  204. vxCtlStyle
  205. VX_RAISE
  206.     VX_RECESS
  207. CurrHwnd
  208. SetFocusAPI
  209. TypeDelete_Click
  210. vxCtlLength
  211. vxUnlock
  212. Form4Active
  213. Form_Load
  214. Record addition request"
  215.  if user pressed ENTER then file is positioned
  216.  at current record and the record number isn
  217.  returned in BuyerReturn. In this case we assume
  218.  he wants to edit that record.
  219.  call general proc to load controls-
  220. Edit record 
  221. Form_Unload
  222. BuyerDataClear
  223. BuyerDataLoad
  224. b_low"
  225. b_high
  226. #######0
  227. #######0
  228. b_cat"
  229. b_desc
  230. b_code
  231. EnableBuyerData
  232. DisableBuyerData
  233. BuyAdd_Click
  234.  clear form for addition of new record
  235. Record Addition Request"
  236.  ensure data entry enabled
  237.  reset the buttons
  238. BuyBrowse_Click
  239.  ensure we're positioned to top rec of group
  240.  so we don't close files
  241.  when we unload the form
  242. No buyer records on file!"
  243. BuyCancel_Click
  244.  Clear form data and reset button status
  245. Operation cancelled"
  246. BuyDelete_Click
  247.  get user confirmation of delete
  248. Confirm Delete
  249.  Deleted
  250. Delete failed"
  251. Delete cancelled
  252. BuyExit_Click
  253. BuyHigh_KeyPress
  254. {Tab}"
  255. BuyLow_KeyPress
  256. {Tab}"
  257. BuyType_GotFocus
  258. b_cat"#
  259. BuyType_KeyPress
  260.  convert to uppercasec
  261. {Tab}"
  262. BuyType_LostFocus
  263. catname"
  264. BuyNext_Click
  265.  skip forward one record
  266.  if skip error, only allow exit-
  267. Error on Skip Next. Try Reindex.
  268.  if this rec doesn't belong to this customer, eof is truei
  269. b_code
  270. b_code
  271. No buyer records on file!"
  272.  test for end of file 
  273. End of File!
  274. Skipped to record 
  275. BuyHigh_GotFocus
  276. b_high#
  277. BuyLow_GotFocus
  278. b_low"#
  279. BuyPrevious_Click
  280.  skip back one record
  281.  if skip error, only allow exit
  282. Error on Skip Previous. Try Reindex.
  283. b_code
  284. No buyer records on file!"
  285.  test for beginning of filer
  286. Beginning of File!
  287. Skipped to record 
  288. BuySave_Click
  289.  verify something in the field
  290. Field cannot be empty"
  291.  verify unique key if adding
  292. Duplicate Key on Add
  293.  Data passed. Put it away
  294. b_code
  295. b_cat"
  296. b_desc
  297. b_low"
  298. b_high
  299.  Update status box
  300. Record "
  301.  appended"
  302. Record "
  303.  saved
  304.  Update Button Status
  305. BuyTypeHelp_Click
  306. Aircraft Type Help
  307.    j% = vxSelectDbf(AirtypesDbf) ' re-register database
  308. category
  309. catname"
  310. Form_Paint
  311.  if delete request from browse, do it now-
  312.  because we must let enhanced controls
  313.  paint before asking for delete confirmation
  314.